home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / demos / 32 / mail.cmd < prev    next >
Encoding:
Text File  |  1986-07-17  |  738 b   |  31 lines
  1. SET TALK OFF
  2. * MAIL.PRG 2-22-86 VERSASOFT INC. 
  3. * BY MIKE DAUSEND
  4. * GLOBAL VARIABLES
  5. * SET ESCAPE OFF
  6. CLEAR
  7. STORE 'SET SAY VIDEO TO 7' TO SAYNORMAL
  8. STORE 'SET SAY VIDEO TO 112' TO SAYREVERSE
  9. STORE 'SET SAY VIDEO TO 15' TO SAYBRIGHT
  10. STORE 'SET SAY VIDEO TO 143' TO SAYBLINK
  11. DO WHILE T
  12.     ERASE
  13.     ASSIGN VMENU('*','ADD NAMES TO MAIL LIST*CHANGE OR DELETE NAMES IN MAIL LIST*PRINT MAIL LABELS*REMOVE DELETED RECORDS*QUIT',5,1)
  14.     DO CASE
  15.         CASE VMENU() = 1 | ADD
  16.             DO MAILADD
  17.         CASE VMENU() = 2 | CHANGE OR DELETE
  18.             DO MAILCHG
  19.         CASE VMENU() = 3 | PRINT
  20.             DO MAILPRNT
  21.         CASE VMENU() = 4 | REMOVE
  22.             DO MAILRMV
  23.         CASE NRANGE(VMENU(),40,45) | HELP
  24.             DO MAILMNH
  25.         OTHERWISE
  26.             CLEAR
  27.             RETURN
  28.     ENDCASE
  29. ENDDO
  30. RETURN
  31.